home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / music_utilities / pt141.dms / pt141.adf / ArexxExamples.lha / EP_Quit.dopus < prev    next >
Text File  |  1993-10-05  |  258b  |  15 lines
  1. /* Eagleplayeransteuerung über Diropus (Quit)
  2.    (c) 1993 DEFECT
  3. */
  4. if (pos('rexx_EP',SHOW('Ports')) = 0) then 
  5.  do
  6.   address 'DOPUS.1'
  7.   toptext 'Eagleplayer not found'
  8.   exit
  9.  end
  10. address 'rexx_EP'
  11. quit
  12. address 'DOPUS.1'
  13. toptext 'Eagleplayer quitted'
  14. exit
  15.